home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / bull.zip / BULLDEMO.PAS < prev    next >
Pascal/Delphi Source File  |  1991-05-10  |  1KB  |  37 lines
  1. Program BullDemo;
  2. Uses Bulletin;
  3.  
  4. Procedure Bull(BName : String);
  5. Var
  6.   F : TEXT;
  7.   OldFG, OldBG : word;
  8. Begin
  9.   Assign(F,BNAME);
  10.   Rewrite(F);
  11.   Writeln(F,A_ST(White,Black));
  12.   Writeln(F,'This is a ', A_ST(RED,Nul),'VERY',A_ST(White,Nul),' brief demo of the');
  13.   Writeln(F,A_ST(Yellow,Blue),'Unit BULLETIN.',A_St(White,Black));
  14.   Writeln(F,'It can do many things.  Including:');
  15.   Writeln(F,A_St(BLink,Nul),' Blinking text without reference to current color');
  16.   Writeln(F,A_St(Nul,Blue),'BackGround Changes');
  17.   Writeln(F,A_ST(Yellow,Blue),'ForeGround Changes');
  18.   OldFg := Ans.FG;
  19.   OldBg := Ans.BG;
  20.   Writeln(F,A_ST(Off,Nul),A_St(OldFG+Bold,OldBG),'Shutting off that anoying blinking');
  21.   Writeln(F,A_St(Off,Nul));
  22.   Close(F);
  23. End;
  24.  
  25. Begin
  26.   Writeln(' This program demonstrates some of the uses for the UNIT BULLETIN');
  27.   Writeln(' It has just created two files, BULL.ANS and BULL.ASC');
  28.   Writeln(' Use the DOS TYPE command to view them.');
  29.   Writeln;
  30.   Writeln(' Thanks,');
  31.   Writeln(' Robert L. Edwards, SysOp The Force! Demon-Sion BBS');
  32.   Writeln('                          1(207)963-2683');
  33.   Ans.On := True;
  34.   Bull('BULL.ANS');
  35.   Ans.On := False;
  36.   Bull('BULL.ASC');
  37. end.